home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / HANDLECD.MOD < prev    next >
Text File  |  1987-05-25  |  2KB  |  38 lines
  1. (*----------------------------------------------------------------------*)
  2. (*     Handle_Carrier_Drop --- Handle carrier drop in terminal mode     *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Handle_Carrier_Drop;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Handle_Carrier_Drop                                  *)
  10. (*                                                                      *)
  11. (*     Purpose:    Handle carrier drop in terminal mode                 *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Handle_Carrier_Drop;                                          *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. BEGIN (* Handle_Carrier_Drop *)
  20.  
  21.    Write_Log( 'Carrier dropped, session ended.', FALSE, FALSE );
  22.  
  23.    Write_Log( 'Elapsed session time: ' +
  24.               TimeString( TimeDiff( Dialing_Start_Time , TimeOfDay ),
  25.                           Military_Time ), TRUE, FALSE );
  26.  
  27.    Carrier_Dropped := FALSE;
  28.  
  29.    Dialing_Start_Time := TimeOfDay;
  30.  
  31.                                    (* Check for WHENDROP string *)
  32.    IF When_Drop_Mode THEN
  33.       BEGIN
  34.          Send_Function_Key( Read_Ctrls( Script_When_Drop_Text ) );
  35.       END (* When_Mode *);
  36.  
  37. END   (* Handle_Carrier_Drop *);
  38.